'++LotusScript Development Environment:2:5:(Options):0:66

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Change(Source As Fieldbox)

'++LotusScript Development Environment:2:5:(Declarations):0:2

'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
	Static Source As FIELDBOX
	Set Source = Bind(Objectname_)
	On Event Change From Source Call Change
End Sub

'++LotusScript Development Environment:2:2:Change:1:12
Sub Change(Source As Fieldbox)
	'This will check to make sure that anything typed in the numrows box is a whole number only:
	On Error Resume Next
	If Not (Isnumeric(source.text)) Or (Int(Val(source.text))) <> Val (source.text)  Or Left$(source.text,1) = "-" Then
		Messagebox "Must enter whole positive numbers only",,"Input Error"
		source.text = ""
		source.refresh
		source.setfocus
	End If
	
	Err = 0
End Sub